# 1 "C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d"
;t1ir1d
;avance-version (07/04/03)
;T1 measurement using inversion recovery
;
;$CLASS=HighRes
;$DIM=1D
;$TYPE=
;$SUBTYPE=
;$COMMENT=


# 1 "C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;avance-version (07/01/22)
;
;$CLASS=HighRes Incl
;$COMMENT=

































































































































;$Id: Avance1.incl,v 1.10.6.2 2007/01/22 13:54:46 ber Exp $
# 12 "C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d" 2



"p2=p1*2"


"acqt0=-p1*2/3.1416"


# 1 "mc_line 21 file C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d expanding definition part of mc command before ze"
define delay MCWRK
define delay MCREST
"MCWRK = 0.500000*30m"
"MCREST = 30m - 30m"
# 21 "C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d"
1 ze
# 1 "mc_line 21 file C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d expanding definition of mc command after ze"
# 22 "C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d"
# 1 "mc_line 22 file C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d expanding start label for mc command"
2 MCWRK  * 2
LBLF0, MCREST
# 23 "C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d"
  d1
  p2 ph1
  d7
  p1 ph2
  go=2 ph31
# 1 "mc_line 28 file C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d expanding mc command in line"
  MCWRK wr #0
  MCWRK zd 
  lo to LBLF0 times td0

# 29 "C:/Bruker/TOPSPIN/exp/stan/nmr/lists/pp/T1ir1d"
exit 


ph1=0 2
ph2=0 0 2 2 1 1 3 3 
ph31=0 0 2 2 1 1 3 3 


;pl1 : f1 channel - power level for pulse (default)
;p1 : f1 channel -  90 degree high power pulse
;p2 : f1 channel - 180 degree high power pulse
;d1 :relaxation delay; 1-5 * T1
;d7 : delay for inversion recovery
;NS :8 * n, total number of scans: NS * TD0
;DS :4 



;$Id: t1ir1d,v 1.7.10.3 2007/04/11 13:16:56 ber Exp $
